home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok82.lha / Mini / Beispiele / ggt.mini < prev    next >
Text File  |  1993-08-15  |  193b  |  20 lines
  1. PROGRAM
  2.  
  3. VAR
  4.   a,b,c
  5.  
  6. BEGIN
  7.  
  8.   a = 622221768
  9.   b = 176543081
  10.  
  11.   WHILE b-a DO c = a  a = b  b = c END
  12.   WHILE a-b DO
  13.     a = a - b
  14.     WHILE b-a DO c = a  a = b  b = c END
  15.   END
  16.  
  17.   PRINT a
  18.  
  19. END
  20.